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lem Ea | 
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| **F ILE**1D**READLEN 
RRRRRRRR EEEEEEEEEE AAAAAA DODDDDDD LL BBBBBBB8 
RRRRRRRR EEEEEEEEEE AAAAAA DDDDDDDD LL BBBBBBBB 
RR EE AA RA DD DD LL BB 
RR RR EE AA AA DD DD LL BB 
RR RR EE AA AA 0D DD LL BB 
RR RR EE AL AA DD DD L 8B 
RRRRRRRR EEEEEEEE AA AA DD DD LL BBBBBBBB 
RRRRRRRR EEEEEEEE AA AA DD DD LL BBBBBBBB 
RR RR EE AAAAAAAAAA 0D DOD LL BB 
RR RR EE AAAAAAAAAA DD DD LL BB 
R RR EE AA AA 0D DD LL BB 
RR RR EE AA AA 0D DD LL BB 
RR RR EEEEEEEEEE AA AA DDDDDDDD LLLLLLLLLL BBBBBBBB 
RR RR EEEEEEEEEE AA AA DDDDDDDD LLLLLLLLLL BB8BBBBBB 
LL III] SSSSSSSS 
LL HII! SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] Ss 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL HI! SSSSSSSS 
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Table of contents 


(e 35 RTFSTARGET DEV = Records the name of Target device. 
(3) 1 FILSREAD_LBN = Routine to read a logical block. 
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are available to it. It calls an entrypoint nosed. 5 FILSRE EAD “CBN 

to read logical blocks les it from the console TUS8. This module 
contains two ontrypetats: one which is called prior. to the invocation 
sa hb may and which is passed the string descriptor of the device 
on which we will write the PBOOTBLOCK, the second of which is named 

AF ILSREAD. CBN and which is called by RTFILREAD. 


AUTHOR: 
Robert Rappaport 13 August 1979 


4-SEP-19 BOOTS.SRCJREADLBN.MAR; 1 (1) 
8 1 eTITL Lf READLBN = WRITEBOOT-RTFILREAD 1/0 interface. 
¢ -IDENT ‘Vv04-000' 
5 8 4 : 
4 5 3 MARARABAALAALAALAAAALALALALALALEAAAARAARAAAA RARE SALARLAAA RAE ARE RARE RAR ASA RR AA SASS 
* * 
0000 : 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
0 8 3* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
8908 19 - ALL RIGHTS RESERVED. . 
0000 11 :* THIS SOFTWARE IS FANT SHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
8888 i :* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
00 13 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
4 1 :* TRANSFERRED. ® 
3* * 
0000 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
4444 $y :* CORPORATION. * 
3 ® 
0000 3 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. a 
0000 4 ;* * 
0000 5 ;* * 
444 $ FRRARAAA HARARE TATA AAA ATA AAA AAAAAAAAAAKAKARERA KAKA AeA KAKA Ae ee KK TAAe eee 
0000 28 :++ 
0000 $3 3 
4464 ? 3 FACILITY: 
0000 3 : Provide an interface to allow RTFILREAD to work in the WRITEBOOT 
0000 3 environment. 
0000 34 ; 
sit $2 : ENVIRONMENT: 
9000 37 : Called when writing a BOOTBLOCK to an RT-11 device by RTFILREAD. 
990 39 > ABSTRACT: 
0000 41; This module provides an interface which allows RTFILREAD to 
0000 $s 3 perform in the WRITEBOOT environment. RTFILREAD sometimes 
0000 re 3 runs in a standalone environment in which no VMS system services 
45 ; 
46; 
47; 
48 ; 
49 ; 
50 ; 
uF 
i: 
73 
56 ; 
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-SBTTL RTFSTARGET_DEV = Records the name of Target device. 


++ 
Functional description: 


This module provides an interface that allows RTFSOPENFILE to 

be used unchanged in the WRITEBOOT environment. When WRITEBOOT 

is called upon to write a BOOTBLOCK on an RT-11 structured device 

it uses module RTFSOPENFILE to interpret information on the RT-11 

device. RTFSOPENFILE was designed to run in a standalone environment 
in which no VMS axesen services are available. RTFSOPENFILE reads 
locks from a TU58 by calling a subroutine called FILSREAD_LBN which 
S passed the LBN of the block to be read and a buffer address. 


In the WRITEBOOT environment we have the full VMS environment. So 

to read an LBN from an RT-11 device we need only invoke Q10. However 
in order to do this we have to know which device we are talking to 

so that we can oostgn it a logical channel. In the standalone 
environment the device information is implicit. 


RTFSTARGET DEV is called from WRITEBOOT prior to the invocation of 
RTFSFILEOPEN. The only argument passed is the name of the target 

RT-11 device upon which we will later write a BOOTBLOCK. The name . 
of this device is saved in static storage in variable ‘‘TARGET_DEV_NAME’ 
so that it will be available Later when RTFSOPENFILE calls entrypoint 
FILSREAD_LBN. At that point we will use the device name to assign 

a channel to the device and then issue a Q10 to read the block. 


SOoOoOSCoCoOOOOoOOCOOoOoOOSoOOSOSoOoOOoOOSO »}- 
SOoOCOOCOCOOOCOOOOOOCoOoOOOoOOSoSSoOSoO wm 
SOoOoOSCOCOOCOOSCOOOOCOOSOSOOOSOOSSS aw 
COOOCCOCCCOCOOCOOOOOOCOOOOOSoSoOoO MO 


Inputs: 


DEVICE_DESC(AP) = string descriptor of target device specification 
Outputs: 


NONE 


Be Se Se Ge Ge Ge Ge Se Se Se Ge Se Se Ge Se Se Ge Se Ge Ge Se Se Ge Ge Ge Sse Se Se Se Se Ses Sete 


Offsets to input arguments: 
DEVICE_DESC = 4 


; DATA PSECT 
-PSECT RWDATA,WRT,NOEXE 
TARGET_DEV_DESC: ; STRING DESCRIPTOR FOR TARGET DEV. 
-LONG 0,TARGET_DEV_NAME 
TARGET_DEV_NAME : ; SPACE FOR TARGET DEVICE NAME. 
-BCKB 20 
I0SB: .QUAD 0 
CHAN_WORD: 
-WORD 0 ; WORD WHEREIN TO STORE CHANNEL NUMBER. 


~PSECT READDEV,EXE ,NOWRT 


0000 


vw 
FAWN OOD NAMEN $9 OONAUES WN 9 OD NOAUS WR $0 OONAUE WN OOONOUES WOOO 


ee 
Sooooo 
ooooo 
ooooo 
Cooooo 
ke a a a ak ed td td td 
— = —§ §@§ SDOODDDOOO0 000000 00000000 09 09 09 09 09 09 09 09 SI NIN NINN NIN NNO AAAAAAAAO 
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v04-000 RTFSTARGET_DEV = Records the name of Tar 4=SEP-1984 33:33:98 BOOTS. SRC JREADLBN.MAR; 1 sis (2) 
003c 0 115 ENTRY arreya ET_DEV, 
118 “M<CRZ2,R5,RE,R a 
50 0 11 MOVL DEVICE_DESC(AP) ,RO ; RO => SOURCE DESCRIPTOR. 
00000000 ' EF $6 6 119 MOVW (RO), TARGET_DEV “DESC : COPY LENGTH OF TARGET NAME TO 
4 13) 3; LOCAL DESCRIPTOR. 
04 BO saa 4 28 9 122 MOVC3 TARGET_DEV_DESC,@4(RO), TARGET_DEV_NAME 
1A = 123 3; COPY DEVICE NAME. 
1A = 124 
04 1A = 125 RET 


a 
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FILSREAD_LBN = Routine to read a logical 4=SEP-1984 25:05: BOOTS.SRCJREADLBN.MAR; 1 (3) 
18 ] 7 -SBTTL FILSREAD_LBN = Routine to read a logical block. 
BiB: 
18 1: Functional description: 
bie 1 ‘ : This entrypoint is called from RTFSOPENFILE to read a Logis? at 
1B «4134; Pees from the —— whose name is defined by the TARGE DEV_DESC. 
O18 135; This routine simply ao a channel to this device, issues 4 Q10w, 
bie : $ ; and deassigns the channel and returns. 
SSB 9B Ines 
Baie 129 3 LBN(AP) = Logical Block Number of block to be read. 
4 146 ; BUFFER(AP) = Address of the area in memory into which to read block. 
0018 144; 
aio 
4 yt 4 : RO - status code of first system service to fail or SS$_NORMAL. 
ge Sp 
0018 151; Offsets to input arguments: 
0018 136 
00000004 0018 15 LBN = 4 
00000008 001B 154 BUFFER = 8 
8 te 
0004 ante 13 ENTRY FILSREAD_LBN, “M<R2> 
001D 159 SASSIGN_S pentane! DEV_DESC, - 
001D 160 CHAN=CHAN_WORD 3 CHAN_WORD => ASSIGNED CHANNEL. 
47 50 f° Onee 161 BLBC RO,READ_LBN NRET 3; BRANCH AROUND ON FAILURE. 
52 00000024'EF C Oe 16 MOVZWL CHAN_WORD,R2 3 COPY CHANNEL # to. Re. 
003C 164 $Q10W_S CHA 
905¢ 165 FUNG: =H10S. -READLBLK. - 
ae cameo. 
003C 169 = LBNCAP) ; ISSUE Q10 AND WAIT 
14 50 9 8363 170 BLBC RO, READ tant RET : teeny AROUND ON FAILURE. 
50 0000001C ‘EF D 006 171 MOVQ 10SB,RO™ 3 Y IOSB TO REGISTERS. 
OA 50 «£9 tte 1% BLBC RO,READ_LBN_RET : BRANCH AROUND ON FAILURE. 
0072 17 SDASSGN_S R2 : DEASSIGN THE CHANNEL. 
007C 176 READ_LBN_RET: 
04 007C 177 RET 
007D 178 - END 


READLBN 
Symbol table 
$T1 = 1 
BUFFER = 0008 
CHAN 00024 R 01 
DEVICE DESC = 000 4 
48 EAD_LBN B RG 
10$_READCBLK eeeeneee § 
1086 446 BN 2 
= 0000 
READ_LBN_RET 0000007C R 0 
RTFSTARGET_DEV 00000000 RG 8 
SYSSASSIGN eeeeneee GX 
SYSSDASSGN eenereee GX 8 
SYS$Q10W eereeeee GX 
TARGET_DEV_DESC 00000000 R 01 
TARGET_DEV_NAME 00000008 R 01 
feeroeceeoceseoceeceocen + 
! Psect synopsis ! 
Peres ena e weno eee 
PSECT name Allocation PSECT No. Attributes 
ABS 00000000 0.) 00 ¢ OQ.) NOPIC 
ATA 00000026 ( 38.) O1¢ 1.) \NOPIC 
READDEV 0000007D ¢ 125.) 02 ¢ 2.) NOPIC 
ee o se esen oem mon re cee eee 
! Performance indicators ! 
ase age faults me apse me 
Ph P faul CPU Ti El d Ti 
Initialization 30 00:00:00.09 00:00:00.4 
Command processing 117 Bs Bs SF bs SY 
Pass 122 00:00:00.97 00:00:03.83 
Symbol table sort 0 a eee 00:00:00.01 
Pass 2 49 88:6 ++ 8 9 00:00:00.71 
Symbol table output 3 00:00:00.04 00:00:00.04 
Psect synopsis output 1 00:00:00.02 00:00:00.03 
Cross-reference output 0 es Sh 4 00:00:00.00 
Assembler run totals 324 00:00:02.19 00:00:07.78 


The working get Limit was 1050 pages. 
pages) of virtual memory were used to buffer th 


3281 bytes ( 


There were 10 pages of symbol table space allocated to hold 1 
178 source Lines were read in Pass 1, producin 
7 pages of virtual memory were used to define 
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macros. 


USR 
USR 
USR 


15-SE 
4-SE 


Pp 
Pp 


“1986 S3:05:01 


CON ABS LCL NOS 
CON REL LCL NOS 
CON REL LCL NOS 


intermediate code. 
non-local and 0 local symbols. 
19 object records in Pass 2. 


AX/VMS Macro V04-00 
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re 


HR NOEXE NORD NOWRT NOVEC BYTE 
XE RD 


HR NOE 
HR EXE 


WRT NOVEC BYTE 
RD NOWRT NOVEC BYTE 


nese # 
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tomer eee ee et em ween weer een wet 


! Macro Library statistics ! 


ee 


Macro Library name Macros defined 


825 seDUAcs peo be 5,08, e0nrs m8: 1 
- seeeun 1 


ESySc IBISTARLET. MLB; 2 
Toraie tt “Cibraries) 


75 GETS were required to define 7 macros. 


NOOO 


There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:READLBN/OBJ=0BJ$:READLBN MSRC$:READLBN/UPDATE=(ENH$:READLBN) +EXECML$/L1B+L1B8$:B00TS.MLB/LIB 


CORPORATION 
AND PROPRIETARY 


L EQUIPMENT 
ENTIAL 


003 AH BTI3A-SE 


D 
VAX/VMS V4.0 C 


A 
D 


= 
I 


I 
= 


G 
N 


I 
0 


